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Oc) OSE SELTTNES LGCKEO"? GO TO FINS oo cou oo ke eee ol  OOOL9 P00. Lo ee 
46 LB3 OSt=s26LIT"IS ALREADY IN YOUR LIBRARY"; 00019800 
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Pe in ade ila ht ee 9 op ES Neve Bee eh dasha Bate, O20 me ag cl OS See te Deca este WMD AS ON etna ah Sans shltituecat eae ie lbs 
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ta Sy2sSCs FLOKS=SI3 % ADDRESS OF OLD STRING 00025200 
eo. STtswPs STssS1453 STst=SC3 & ADDRESS UF WORK AREA 00025300 
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yo SCANNED $5 LITSCANCTOSCAN*WORKPTHeFNDINXESTRIWORC]»sFOUNDIs  ——=s—ss—«§-: Q00H2600 
; COLS 3# COLS + SCANNEDS ¥% UP TO STRINGs IF FOUND 00062700 
IF FOUND THEN 00062800 
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COLS *= COLS + OLUS]ZEs * ADD OLZE GF STRING 
& COMMON := COMMCA #15 & TUTAL NU, FOUND 
ae PERLINE %= PERLINE + 14 4 NOe FUR ThIS RECURD 
" IF PERLINE GTR 79 THEN GO TO ENDILUOPS 
ee IF BOOLEANCFNDINXLSTRTWORDIJeL1781]) THEN % FIRST 
i” : _.. BEGIN PRINTS GOTO FINISHS END). 2. 2) WW 
; ENO IF FOUND 
r GO TO FINOLIT; 
eet ENDILOOP: 
END I LOOP; 
& j IF PERLINE GTR O THEN PRINTS 
thet See POSER TARO Ged sak nd atten Saletan mca ee tese cae So wt, do SudnGc wid sah lecotbue div yenbitae antes 
hg FINISHS 
Te IF OUTFIL AND COMMON GTK © THEN MOVETYPECOLDsD3SKe)3 
CLUSECOLD)3 oe ele ce tan ee ee eG 
ta IF QUTFIL AND COMMON GTR O THEN LOCKC(DSK25*)3 
. TWXOUTCOUTBUFL0)*091)3 
es NUMFQOUNDCOUTBUF »COMMON)S TWXOUTCQUTBUF (C0) 53401); 
. EXIT: 
o- END OF PROGRAM, 
Bow a. . ENDSENDs LAST CARD ON OCRDING TAPE. 
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